﻿Imports Microsoft.VisualBasic
Imports Camstar.WebClient.WebServicesProxy.InSiteWebServices
Imports Camstar.WebClient.FormsBuilder.WebForm
Imports Camstar.WebClient.FormsBuilder.WebControls.PickLists

Namespace InSiteWebApplication.CustomControls
    Public Class uLMSInstanceList
        Inherits Camstar.WebClient.FrameworkControls.InstanceList
        Protected Overrides Sub OnPreProcessData(ByVal sender As Object, ByVal e As Camstar.WebClient.FormsBuilder.WebControls.PickLists.DataRequestEventArgs)
            MyBase.OnPreProcessData(sender, e)
        End Sub
        Protected Overrides Sub ViewControl_RequestData(ByVal sender As Object, ByVal e As Camstar.WebClient.FormsBuilder.WebControls.PickLists.DataRequestEventArgs)
            If CDOTypeName = "Spec" Or CDOTypeName = "Product" Or CDOTypeName = "BOM" Or CDOTypeName = "Workflow" Or CDOTypeName = "Employee" Or CDOTypeName = "Bom" Or CDOTypeName = "Role" Or CDOTypeName = "MenuDefinition" Then
                Dim strFilter As String = FilterControl.FilterTextControl.Text
                '没有过滤数据值不查询全部
                If String.IsNullOrWhiteSpace(strFilter) Then
                    Exit Sub
                End If
            End If
            MyBase.ViewControl_RequestData(sender, e)
        End Sub

        Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)

            MyBase.OnLoad(e)
        End Sub

    End Class
End Namespace